perm filename ZZZ[E,ALS] blob sn#272328 filedate 1977-03-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	JSTAR1:	SKIPN TT,XPLST		Are there any appended pages?
C00003 ENDMK
CāŠ—;
JSTAR1:	SKIPN TT,XPLST		;Are there any appended pages?
	JRST JSTAR3		;No
	HLRZ T,2(TT)
	CAML T,ARRL
	JRST JSTAR3		;On the first page in core
JSTAR2:	MOVEI C,1(T)			;Line number of first line on page
	MOVEI B,-LPMTXT-LLDESC(TT)	;Pointer to the first line
	HRRZ TT,(TT)
	JUMPE TT,JSTAR4
	HLRZ T,2(TT)
	CAMGE T,ARRL
	JRST JSTAR2		;Try next page
	JRST JSTAR4

JSTAR3:	MOVEI A,1
	MOVEI B,PAGE		;Start at top of page
JSTAR4:	PUSHJ P,SETARR
	HRRZ T,(B)
	SKIPN TXTCNT(T)		;Is first line of page not a text line?
	POPJ P,			;Yes, direct return quick
	PUSH P,A